home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC6.PRO < prev    next >
Unknown  |  1995-11-22  |  476 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert MSX Protracker Module (music/msxProtrackerModule) ext Unsupported
1% dexvert Show Partner Mastered Show (other/showPartnerMasteredShow) ext Unsupported
100% file data default
100% disktype Blank disk/medium default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 16 00 44 65 63 6c 61 72 | 65 20 56 61 72 69 61 62 |..Declar|e Variab|
|00000010| 6c 65 73 0d 0a 20 20 20 | 78 20 61 73 20 6e 75 6d |les..   |x as num|
|00000020| 62 65 72 0d 0a 65 6e 64 | 0d 0a 69 66 20 69 6e 70 |ber..end|..if inp|
|00000030| 75 74 2e 63 68 61 6e 67 | 65 20 3d 20 22 6e 6f 22 |ut.chang|e = "no"|
|00000040| 20 74 68 65 6e 0d 0a 20 | 20 20 66 6f 72 20 73 74 | then.. |  for st|
|00000050| 61 66 66 20 77 69 74 68 | 20 4e 61 6d 65 20 3d 20 |aff with| Name = |
|00000060| 69 6e 70 75 74 2e 4e 61 | 6d 65 0d 0a 20 20 20 20 |input.Na|me..    |
|00000070| 20 20 78 20 3d 20 78 20 | 2b 20 31 0d 0a 20 20 20 |  x = x |+ 1..   |
|00000080| 6e 65 78 74 0d 0a 20 20 | 20 69 66 20 78 20 3e 20 |next..  | if x > |
|00000090| 30 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 62 65 |0 then..|      be|
|000000a0| 65 70 0d 0a 20 20 20 20 | 20 20 64 69 73 70 6c 61 |ep..    |  displa|
|000000b0| 79 20 73 74 61 74 75 73 | 20 22 54 68 69 73 20 6e |y status| "This n|
|000000c0| 61 6d 65 20 68 61 73 20 | 6a 75 73 74 20 62 65 65 |ame has |just bee|
|000000d0| 6e 20 65 6e 74 65 72 65 | 64 20 21 22 0d 0a 20 20 |n entere|d !"..  |
|000000e0| 20 20 20 20 64 65 6c 61 | 79 20 32 30 30 30 0d 0a |    dela|y 2000..|
|000000f0| 20 20 20 20 20 20 72 65 | 63 61 6c 6c 20 69 6e 70 |      re|call inp|
|00000100| 75 74 20 73 63 72 65 65 | 6e 0d 0a 20 20 20 65 6e |ut scree|n..   en|
|00000110| 64 20 69 66 0d 0a 20 20 | 20 66 6f 72 20 53 74 61 |d if..  | for Sta|
|00000120| 66 66 20 6e 65 77 20 72 | 65 63 6f 72 64 0d 0a 20 |ff new r|ecord.. |
|00000130| 20 20 20 20 20 63 6f 70 | 79 20 61 6c 6c 20 66 72 |     cop|y all fr|
|00000140| 6f 6d 20 69 6e 70 75 74 | 0d 0a 20 20 20 6e 65 78 |om input|..   nex|
|00000150| 74 0d 0a 65 6c 73 65 0d | 0a 20 20 20 66 6f 72 20 |t..else.|.   for |
|00000160| 73 74 61 66 66 20 77 69 | 74 68 20 6e 61 6d 65 20 |staff wi|th name |
|00000170| 3d 20 69 6e 70 75 74 2e | 6e 61 6d 65 0d 0a 20 20 |= input.|name..  |
|00000180| 20 20 20 20 73 74 61 66 | 66 2e 52 61 74 65 20 3d |    staf|f.Rate =|
|00000190| 20 69 6e 70 75 74 2e 4e | 65 77 52 61 74 65 0d 0a | input.N|ewRate..|
|000001a0| 20 20 20 20 20 20 75 70 | 64 61 74 65 20 72 65 63 |      up|date rec|
|000001b0| 6f 72 64 0d 0a 20 20 20 | 6e 65 78 74 0d 0a 65 6e |ord..   |next..en|
|000001c0| 64 20 69 66 0d 0a 04 00 | 4e 65 77 20 53 74 61 66 |d if....|New Staf|
|000001d0| 66 20 20 20 20 20 20 20 | 20 20 20 20             |f       |        |
+--------+-------------------------+-------------------------+--------+--------+